home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tt.d64 / cliffy.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  120 lines
  1. 1 INPUT"[147]SKILL LEVEL (1-3)";R$
  2. 2 G=10+(VAL(R$)-1)*10
  3. 3 IFVAL(R$)<1THENPRINT"SORRY BUT NO ON IS THAT DUMB:GOTO7
  4. 5 [139][197](R$)[177]3[167][153]"SORRY BUT NO ONE IS THAT SMART":[137]7
  5. 6 [137]9
  6. 7 [129]R[178]1[164]8:[141]2000:[130]R:[138]
  7. 9 [134]MN$(22)
  8. 10 MN$(1)[178]"CMD TO(null)TOCMDCMDCMDCMDCMD  (null) WAIT(null)CMDCMDCMDCMD THENTHEN"
  9. 11 MN$(2)[178]"TO(null)(null)CMDCMDCMD(null) WAIT(null)FNCMDCMDCMDCMDTHEN "
  10. 12 MN$(3)[178]"ONTO(null)CMDCMDCMD (null) WAIT(null)CMDCMDCMDCMD  >(null)CMDCMDCMDCMD "
  11. 13 MN$(4)[178]"   CMDCMDCMDTO(null)(null) CMDCMDCMDCMD(null) WAIT(null)(null)CMDCMDCMDCMD(null)    CMDCMDCMDCMDCMDTAB("
  12. 14 MN$(5)[178]"   CMDCMDCMDTO(null)SQR CMDCMDCMDCMDFN WAITTO CMDCMDCMDCMD(null)  (null)"
  13. 15 MN$(6)[178]"   CMDCMDCMD(null)(null) CMDCMDCMD  WAIT(null) CMDCMDCMDCMD(null)FN(null) CMDCMDCMDCMDCMD     "
  14. 16 MN$(7)[178]"   CMDCMDCMDTHEN(null) CMDCMDCMD  WAIT(null)CMDCMDCMDCMDTHEN(null) (null)CMDTAB("
  15. 17 MN$(8)[178]"   CMDCMDCMD (null)'CMDCMDCMDCMDCMD    WAIT(null)CMDCMDCMDCMDTAB(TAB(SQR CMDCMD "
  16. 18 MN$(9)[178]"   CMDCMDCMD  (null)'CMDCMDCMDCMDCMDCMD  (null)STEPWAIT(null)CMDCMDCMDTO(null)"
  17. 19 MN$(10)[178]"    CMDCMDCMDCMDCMD(null)TO (null)CMDCMDCMDCMD  WAIT(null)CMDCMDCMDCMD(null)(null) (null)"
  18. 20 MN$(11)[178]"CMD    CMDCMDCMDCMDCMD (null)TO TOCMDCMDCMDCMDCMD (null)TO WAIT(null)(null)CMDCMDCMDCMDCMD   (null)"
  19. 21 MN$(12)[178]"CMD    CMDCMDCMDTHEN(null)  CMDCMDCMDCMDCMD (null)(null)WAITTO(null)CMDCMDCMDTHEN(null)CMDCMD'"
  20. 22 MN$(13)[178]"CMD   CMDCMDCMDFN THEN  CMDCMDCMDCMDCMD(null) (null) CMDCMDCMDCMD  WAIT  CMDCMDCMDCMD(null)(null)(null)CMDCMD "
  21. 23 MN$(14)[178]"CMD    CMDCMDCMDCMDTO ,CMDCMDCMDCMD (null)THENCMDCMDCMD   WAIT CMDCMDCMD(null)(null)FNCMDCMDCMD TAB("
  22. 24 MN$(15)[178]"CMD    CMDCMDCMDCMDTO ,CMDCMDCMDCMD (null)THENCMDCMDCMD   WAIT CMDCMDCMD(null)(null)FNCMDCMDCMD TAB("
  23. 25 MN$(16)[178]"CMD    CMDCMDCMDCMDTO ,CMDCMDCMDCMD (null)THENCMDCMDCMD   WAIT CMDCMDCMD(null)(null)FNCMDCMDCMD TAB("
  24. 26 MN$(17)[178]"CMD    CMDCMDCMDCMDTO ,CMDCMDCMDCMD (null)THENCMDCMDCMD   WAIT CMDCMDCMD(null)(null)FNCMDCMDCMD TAB("
  25. 27 MN$(18)[178]"CMD    CMDCMDCMDCMDTO ,CMDCMDCMDCMD (null)THENCMDCMDCMD   WAIT CMDCMDCMD(null)(null)FNCMDCMDCMD TAB("
  26. 28 MN$(19)[178]"CMD    CMDCMDCMDCMDTO ,CMDCMDCMDCMD (null)THENCMDCMDCMD   WAIT CMDCMDCMD(null)(null)FN"
  27. 29 MN$(20)[178]"CMD   CMDCMDCMDTO (null)CMDCMDCMD(null)NEWEXPCMDCMDCMDTONOTWAITSQR"
  28. 30 MN$(21)[178]"ONCMD   CMDCMDCMD  TOCMDCMDCMD (null)FNCMDCMDCMD(null) WAIT(null)"
  29. 31 MN$(22)[178]"CMDON   CMDCMDCMD, TOCMDCMDCMD(null) (null)"
  30. 100 [153]"LOAD"
  31. 110 [129]T[178]10[164]0[169][171]1
  32. 120 [153][166]T[172]2[170]7);
  33. 130 [153]"STEP"T"CMD WAIT";
  34. 140 [129]R[178]1[164](10[171]T)
  35. 150 [153]"  WAIT";:[130]R:[153]
  36. 160 [130]T
  37. 170 [129]T[178]1[164]20:[153]"SPC(";:[130]T
  38. 180 [129]T[178]1024[164]1063:[151]T,102:[151]T[170]960,102:[130]T
  39. 190 [129]T[178]1024[164]1984[169]40:[151]T,102:[151]T[170]39,102:[130]T
  40. 220 [129]T[178]1[164]6:[153]"           WAITCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDSPC(";:[130]T
  41. 230 [153]"                   WAIT"
  42. 231 [153]"CLIFFWAIT";
  43. 232 [153]"CMDCMDCMDCMDTHEWAIT";
  44. 233 [153]"CMDCMDCMDCMDCMDHAN GERWAIT";
  45. 234 [153]"CMDCMDCMDCMDCMDTOTOTOCMDCMDCMD(null)(null)(null)CMDCMDCMDTAB(TAB(TAB("
  46. 235 [153]"   "
  47. 240 D$[178]""
  48. 260 [150][165]R(X)[178][181]([187](1)[172]2[172]X[171]X):D[178]14:S[178]5:[141]1050
  49. 270 [129]H[178]1[164]20
  50. 271 [139]P[178]1[167]P[178]0:F[178]N:N[178]Y:Y[178]F:[141]802:[137]275
  51. 274 [141]800
  52. 275 [139]Q[178]1[167]285
  53. 280 [153]D$;"("N$")+("Y$")=";:[137]290
  54. 285 [153]D$;"("N$")-("Y$")=";
  55. 290 TI$[178]"000000":B$[178]"":E[178]0
  56. 300 [161]A$:[139]A$[178]""[175][197](TI$)[179]5[167]300
  57. 310 [139][197](TI$)[177]4[167]390
  58. 320 [139][198](A$)[178]13[167]340
  59. 321 [139][198](A$)[178]20[167]B$[178][201](B$,[195](B$)[171]1):[153]"CMD CMD";:[137]300
  60. 330 B$[178]B$[170]A$:[153]A$;:[137]300
  61. 340 [139][197](B$)[178]Z[167][153]:[153]"CORRECT !":E[178]1:[137]360
  62. 350 [153]:[153]"INCORRECT":P[178]1
  63. 360 [129]T[178]1[164]300:[130]T:[153]"ONONON               "
  64. 370 [153]"               ":[153]"          "
  65. 371 [139]E[178]1[167][141]1000
  66. 380 [130]H:[137]2010
  67. 390 [153]:[153]"TIMES UP":[137]360
  68. 800 N[178][165]R(G):Y[178][165]R(G):Q[178][165]R(2)
  69. 802 [139]Q[178]1[167]Z[178]N[171]Y:[137]810
  70. 803 Z[178]N[170]Y
  71. 810 [139]N[179]0[167]N$[178][196](N):[137]830
  72. 820 N$[178][201]([196](N),[195]([196](N))[171]1)
  73. 830 [139]Y[179]0[167]Y$[178][196](Y):[137]850
  74. 840 Y$[178][201]([196](Y),[195]([196](Y))[171]1)
  75. 850 [142]
  76. 1000 :
  77. 1010 [139]D[178]3[167]1200
  78. 1020 [129]T[178]2[164]3
  79. 1030 [153]"";:[129]R[178]1[164]D:[153]"";:[130]R:[129]R[178]1[164]S:[153]"";:[130]R
  80. 1040 [153]MN$(T):[129]R[178]1[164]400:[130]R:[130]T
  81. 1045 D[178]D[171]1:S[178]S[170]2
  82. 1050 [153]"";:[129]R[178]1[164]D:[153]"";:[130]R:[129]R[178]1[164]S:[153]"";:[130]R
  83. 1060 [153]MN$(1)
  84. 1100 [142]
  85. 1200 [139]S[178]29[167]1250
  86. 1210 S[178]S[170]1
  87. 1220 [153]"";:[129]R[178]1[164]D:[153]"";:[130]R:[129]R[178]1[164]S:[153]"";:[130]R
  88. 1230 [153]MN$(1)
  89. 1240 [137]1100
  90. 1250 S[178]33:D[178]2:[153]"";
  91. 1251 [153]"    (null)CMDCMDCMDCMDCMDCMDCMDCMD      (null) WAIT(null)CMDCMDCMDCMDCMD  (null)SQR";
  92. 1252 [129]I[178]1[164]80:[130]I
  93. 1253 [153]"CMDCMD   ONCMDCMDCMD   ONCMDCMDCMD   "
  94. 1260 [129]T[178]4[164]22:D[178]D[170]1
  95. 1270 [153]"";:[129]R[178]1[164]D:[153]"";:[130]R:[129]R[178]1[164]S:[153]"";:[130]R
  96. 1275 [129]E[178]1[164]50:[130]E
  97. 1280 [153]MN$(T);:[130]T:[129]R[178]1[164]70:[130]R
  98. 1290 [153]"CMDCMDCMD    ONCMDCMDCMDCMDCMD    ";
  99. 1300 [129]T[178]1[164]10:[141]2000:[130]T
  100. 1310 [153]"CMDCMDCMD , ,";:[141]2000
  101. 1320 [153]"CMDCMDCMDASC(null)ASC";:[141]2000
  102. 1330 [153]"CMDCMDCMD(null)(null)(null)";:[141]2000
  103. 1340 [153]"CMDCMDON(null)CMDCMD(null) WAIT(null)";:[141]2000
  104. 1350 [153]"CMDCMDCMDTHEN FN CMDONCMDCMDCMD(null) WAIT(null)ONCMDCMD(null)";:[141]2000
  105. 1360 [153]"CMDCMD(null)(null)ONCMDCMDCMDTOTOCMDCMDONCMDCMDCMD";:[141]2000
  106. 1370 W$[178]"YOU KNOWCMDCMDCMDCMDCMDCMDCMDCMD        CMDCMDCMDCMDCMDCMDCMDCMD"
  107. 1380 W1$[178]"I REALLYCMDCMDCMDCMDCMDCMDCMDCMD        CMDCMDCMDCMDCMDCMDCMDCMD"
  108. 1390 W2$[178]"HATE THISCMDCMDCMDCMDCMDCMDCMDCMDCMD        SPC(CMDCMDCMDCMDCMDCMDCMDJOB"
  109. 1400 W$[178]W$[170]W1$[170]W2$
  110. 1410 [129]T[178]1[164][195](W$):[153][202](W$,T,1);
  111. 1420 [129]R[178]1[164]50:[130]R:[130]T
  112. 1430 [129]R[178]1[164]10:[141]2000:[130]R:[153]"LOAD":[138]
  113. 1999 [128]
  114. 2000 [129]MJU[178]1[164]300:[130]MJU:[142]
  115. 2010 [153]";
  116. 2020 PRINT"SORRY BUT YOU":PRINT"BLEW IT JOE!!"
  117. 2030 FORR=1TO600:NEXTR
  118. 2040 PRINT"CLIFF WASN'T GOING":PRINT"TO GO OVER "
  119. 2050 FORT=1TO8:GOSUB2000:NEXTT:RUN
  120.